@是否闰年 = @【#年】｛
    如果 #年 % 400 等于 0 ｛
        返回 真
    ｝再则 #年 % 100 等于 0 ｛
        返回 假
    ｝再则 #年 % 4 等于 0 ｛
        返回 真
    ｝否则 ｛
        返回 假
    ｝
｝

#月日数 = 【31,28,31,30,31,30,31,31,30,31,30,31】

尝试 ｛
    #年 = @转整数、@获取输入、“请输入年份”
    #月 = @转整数、@获取输入、“请输入月份”
    #日 = @转整数、@获取输入、“请输入日期”
    如果 @是否闰年、#年 ｛
        #月日数#1 = 29
    ｝否则 ｛
        #月日数#1 = 28
    ｝
    #日数 = 0
    当 #序：0，#序 小于 #月-1，#序 自加 1 ｛
        #日数 自加 #月日数#序
    ｝
    #日数 自加 #日
    @显示、#年 + “-” + #月 + “-” + #日 + “是年内第” + #日数 + “日” 
｝排查 #异常 ｛
    @显示、“输入的日期格式有误”
｝



